www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/userinfo2.asp
<!--#include file=conn.asp--> <!--#include file=config.asp--> <!--#include file=const.asp--> <!--#include file=char.asp--> <!--#include file=inc/userfun.asp--> <!--#include file=inc/template.asp--> <% '========================================================= ' File: dispuser.asp ' Version:3.0 ' Date: 2005-11-5 ' Script Written by xmrxw '========================================================= ' Copyright (C) 2004,2005 920520.com All rights reserved. ' Web: http://www.920520.com,http://www.xmzxw.com ' Email: info@mssky.com,super@mssky.com ' QQ:10689579 Msn:zdlmicr@hotmail.com '========================================================= dim username dim userclass username=trim(checkStr(request("Username"))) if username="" or strLength(request("Username"))>20 then errmsg=errmsg+"<br>"+"<li>用户名不能为空。" founderr=true end if if Cint(GroupSetting(3))=0 then Errmsg=Errmsg+"<br>"+"<li>您没有浏览会员资料的权限!" response.Write(Errmsg) response.end end if call nav() stats="查询"&username&"个人资料" founderr=false if founderr then call Mslove_error() else if username="" then ErrMsg=Errmsg+"<br>"+"<li>错误的参数。" founderr=true end if dim Stockmoney,bankmoney,userinfo dim realname,character,personal,country,province,city,shengxiao,Userstars dim UserIM dim homepage,Oicq,Icq,Msn,Aim,Yahoo,Uc dim Userfriendinfo,Pheight,Pweight,figure,TemplateId dim Ublood,UFolk,Ubelief,Uoccupation,Udutytype,Umarital,Ueducation,Ucollege dim Uuserphone,Uaddress dim Uhealth,Uweight,Ufigure,Umylook,Ufug,Uincome,Ualcohol,Uhouses,Ulanguage dim Uphoto,Uphototitle,Uimages,UWealth,Uvip,Uep,Ucp,Upower,Udiarynum dim Upics,Uhits,ULastlogin,Uclass,Usex,Ubirth,Umail,Ulock,Loginnum dim Sqlt,rst,Show_Template,OnlineTime,Ostat,Userwife set rs=server.createobject("adodb.recordset") sql="select Userphoto,userclass,UserIM,Userheight,TemplateId,UserInfo,Userfriends,Visual,UserFace,userWealth,Uservip,userEP,userCP,userPower,UserPics,Userdiary,UserViews,lastlogin,userclass,Usersex,Userbirthday,UserEmail,LockUser,UserLogins,Userwife from [Ms_User] where username='"&UserName&"'" rs.open sql,conn,1,1 if rs.eof and rs.bof then ErrMsg=Errmsg+"<br>"+"<li>您查询的名字不存在" founderr=true call Mslove_error() response.end end if userclass=rs("userclass") Uphoto=rs("Userphoto") UserIM=rs("UserIM") Pheight=rs("Userheight") TemplateId=rs("TemplateId") UserIM=split(UserIM,"|||") homepage=UserIM(0) Oicq=UserIM(1) Icq=UserIM(2) Msn=UserIM(3) Aim=UserIM(4) Yahoo=UserIM(5) Uc=UserIM(6) userinfo=rs("UserInfo") userinfo=split(userinfo,"|||") realname=userinfo(0) character=userinfo(1) personal=userinfo(2) country=userinfo(3) province=userinfo(4) city=userinfo(5) shengxiao=userinfo(6) Userstars=userinfo(7) Ublood=userinfo(8) UFolk=userinfo(9) Ubelief=userinfo(10) Uoccupation=userinfo(11) Udutytype=userinfo(12) Umarital=userinfo(13) Ueducation=userinfo(14) Ucollege=userinfo(15) Uuserphone=userinfo(16) Uaddress=userinfo(17) Userfriendinfo=split(rs("Userfriends"),"|||") Uhealth=Userfriendinfo(0) Uweight=Userfriendinfo(1) Ufigure=Userfriendinfo(2) Umylook=Userfriendinfo(3) Ufug=Userfriendinfo(4) Uincome=Userfriendinfo(5) Ualcohol=Userfriendinfo(6) Uhouses=Userfriendinfo(7) Ulanguage=Userfriendinfo(8) Stockmoney=0 bankmoney=0 'if TemplateId="" then TemplateId=1 'end if Uphototitle=rs("Visual") Uimages=rs("UserFace") Uwealth=rs("userWealth") Uvip=rs("Uservip") Uep=rs("userEP") Ucp=rs("userCP") Upower=rs("userPower") Upics=rs("UserPics") Udiarynum=rs("Userdiary") Uhits=rs("UserViews") Ulastlogin=rs("lastlogin") Uclass=rs("userclass") Usex=rs("Usersex") Ubirth=rs("Userbirthday") Umail=rs("UserEmail") Ulock=rs("LockUser") Loginnum=rs("UserLogins") Userwife=rs("Userwife") Sqlt="select Template from [Ms_Template] where id="&TemplateId set rst=conn.execute(Sqlt) if not (rst.eof and rst.bof) then Show_Template=rst("Template") End If rs.close set rs=nothing set rs=conn.execute("select stats,startime from Ms_online where username='"&UserName&"'") if rs.eof and rs.bof then Ostat="" OnlineTime="状态:[离线]" else Ostat="当前位置:["&rs(0)&"]" OnlineTime="状态:[在线:" & datediff("n",rs(1),Now()) & "Mins]" end if rs.close set rs=nothing Call Replace_PublicTag(Show_Template) conn.execute("update Ms_user set UserViews=UserViews+1 where Username='"&UserName&"'") if founderr then call Mslove_error() call activeonline() end if %> <link href="STYLE1.css" rel="stylesheet" type="text/css"> <style type="text/css"> <!-- .STYLE3 {font-weight: bold} --> </style> <table width="750" border="0" align="center" cellpadding="0" cellspacing="0"> <tbody> <tr> <td align="middle"><br /> <table cellspacing="0" cellpadding="0" width="711" bgcolor="#d8d8d8" border="0"> <tbody> <tr> <td valign="top" align="middle" bgcolor="#ffffff" height="40"><table cellspacing="5" cellpadding="5" width="100%" border="0"> <tbody> <tr> <td bgcolor="#eaf5fc" height="22"><font color="#000000"><strong>小贴士:</strong></font> <!--<font color="#000000">搜索更多会员的方法</font>--> 网站每次搜索最多只显示200个会员,要看更多,可重点“查找”按钮(结果会随机变化),或将搜索条件细化。</FONT></td> </tr> </tbody> </table></td> </tr> </tbody> </table></td> </tr> <tr> <td valign="top" align="middle" bgcolor="#ffffff"><table cellspacing="0" cellpadding="0" width="750" border="0"> <tbody> <tr> <td valign="top" width="172" height="491"><table cellspacing="1" cellpadding="1" width="100%" bgcolor="#d8d8d8" border="0"> <tbody> <tr> <td valign="top" bgcolor="#ffffff" height="356"><table cellspacing="0" cellpadding="0" width="100%" border="0"> <tbody> <tr> <td valign="center" align="middle" colspan="3" height="166"><br /> <table cellspacing="0" cellpadding="0" width="100%" border="0"> <tbody> </tbody> </table> <table height="156" cellspacing="1" cellpadding="1" width="126" bgcolor="#cfcfcf" border="0"> <tbody> <tr> </tr> </tbody> </table> <table cellspacing="0" cellpadding="0" width="126" border="0"> <tbody> </tbody> </table></td> </tr> <tr> <td width="5%"> </td> <td align="middle" width="90%" height="25"><font color="#000000">茶壶</font> </td> <td width="5%"> </td> </tr> <tr> <td> </td> <td width="90%" valign="top"><table width="100%" border="0" cellpadding="0"> <tr> <td>金币:</td> <td>魅力:</td> </tr> <tr> <td>经验:</td> <td>威望:</td> </tr> </table> <br /></td><td> </td> </tr> <tr> <td> </td> <td width="90%" valign="top"><table cellspacing="0" cellpadding="0" width="100%" border="0"> <tbody> <tr valign="top" align="left"> <td colspan="2"><img height="8" src="" width="10" /></td> </tr> <tr class="12x18"> <td align="middle" colspan="2" height="30">在线留言</td> </tr> <tr> <td valign="center" align="middle" colspan="2" height="30">发送短信</td> </tr> <tr> <td valign="center" align="middle" colspan="2" height="30">加为好友</td> </tr> <tr> <td valign="center" align="middle" colspan="2" height="30">加入收藏</td> </tr> <tr> <td valign="top" align="left" colspan="2"><img src="file:///D|/temp/茶壶的个人资料_files/grzl_01.gif" /></td> </tr> <tr align="left"> <td valign="top" colspan="2"><img height="8" src="" width="10" /></td> </tr> <tr> <td valign="center" align="middle"><img height="11" alt="" src="images/grzl_18.gif" width="11" /></td> <td valign="center" align="left"><span class="12x20"><a class="small_top" href="http://www.91yuan.com/operate/userview/user_photo.asp?id_r=1784025&levels=" target="subiframe"><font color="#666666">个人相册</font></a>:1张</span></td> </tr> <tr> <td valign="center" align="middle"><img height="11" alt="" src="images/grzl_18.gif" width="11" /></td> <td valign="center" align="left"><span class="12x20"><a class="small_top" href="http://www.91yuan.com/operate/userview/user_diary.asp?id_r=1784025&levels=" target="subiframe"><font color="#666666">心情日记</font></a>:0篇</span></td> </tr> <tr> <td valign="center" align="middle"><img height="11" alt="" src="images/grzl_18.gif" width="11" align="absmiddle" /></td> <td valign="center" align="left"><span class="12x20"><a class="small_top" href="http://www.91yuan.com/operate/userview/user_sound_mpg.asp?id_r=1784025&levels=" target="subiframe"><font color="#666666">声音影像</font></a>:0个</span></td> </tr> <tr> <td valign="center" align="middle"><img height="11" alt="" src="images/grzl_18.gif" width="11" align="absmiddle" /></td> <td valign="center" align="left"><span class="12x20"><a class="small_top" href="http://www.91yuan.com/operate/userview/user_article.asp?id_r=1784025&levels=" target="subiframe"><font color="#666666">站内言论</font></a>:0篇</span></td> </tr> </tbody> </table></td> <td> </td> </tr> </tbody> </table> <br /> <br /></td> </tr> </tbody> </table> <span class="12x18"><span class="STYLE3"><br /> </span></span> <table cellspacing="1" cellpadding="1" width="100%" bgcolor="#d8d8d8" border="0"> <tbody> <tr> <td valign="top" bgcolor="#ffffff"><table cellspacing="0" cellpadding="3" width="100%" border="0"> <tbody> <tr> <td align="middle" colspan="2"> <b>该会员是否真诚交友?</b> </td> </tr> <tr> <td width="50%"> 是:0票</td> <td width="50%">不是:0票<br /></td> </tr> <tr> <td class="12x20" align="middle" colspan="2"><a class="Black_UnderLine" onclick="javascript:window.open('/operate/sincere/index.asp?id_r=1784025&paytype=2','投票','width=300,height=200,top=250,left=300resizable=yes');return false;" href="http://www.91yuan.com/operate/userview/index.asp?id_r=1784025#">我要投票</a> <a class="Black_UnderLine" onclick="javascript:window.open('/operate/sincere/index.asp?id_r=1784025&paytype=2','投票','width=300,height=200,top=250,left=300resizable=yes');return false;" href="http://www.91yuan.com/operate/userview/index.asp?id_r=1784025#">投票说明</a> </td> </tr> </tbody> </table></td> </tr> </tbody> </table> <br /> <br /> <table cellspacing="0" cellpadding="0" width="100%" border="0"> <tbody> <tr> <td><a href="http://www.91yuan.com/shop/index.asp?link=Main.asp?re_id=1784025" target="_blank"></a></td> </tr> </tbody> </table> <br /> <br /> <table cellspacing="0" cellpadding="0" width="100%" bgcolor="#d8d8d8" border="0"> <tbody> <tr> <td valign="top" align="middle" bgcolor="#ffffff" height="40"><a class="orange_UnderLine" href="http://www.91yuan.com/help/beginner/Safe.htm" target="_blank"></a> </td> </tr> </tbody> </table></td> <td width="9"><br /></td> <td valign="top" width="561"><table cellspacing="0" cellpadding="0" width="100%" border="0"> <tbody> <tr valign="top" align="left" bgcolor="#0072bc"> <td height="30" valign="center" bgcolor="#0072bc"><font color="#ffffff"><strong> 基本资料 | <span class="14x20">详细资料</span> | <span class="14x20">个人相册</span></strong> 最近登陆:24小时以内</font></td> </tr> <tr valign="top" align="left"> <td><img height="10" src="" width="1" /></td> </tr> </tbody> </table> <table cellspacing="10" cellpadding="0" width="100%" border="0"> <tbody> <tr> <td valign="top" align="middle" bgcolor="#ffffff"><table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#d8d8d8"> <tbody> <tr> <td valign="top" bgcolor="#ffffff"><table width="100%" border="0"> <tr> <td width="16%">昵 称:</td> <td width="35%"> </td> <td width="17%">会员等级:</td> <td width="32%"> </td> </tr> <tr> <td>性 别:</td> <td> </td> <td>年 龄:</td> <td> </td> </tr> <tr> <td>身 高:</td> <td> </td> <td>学 历:</td> <td> </td> </tr> <tr> <td>职 业:</td> <td> </td> <td>公司类型</td> <td> </td> </tr> <tr> <td>所在地区:</td> <td> </td> <td>户口地区:</td> <td> </td> </tr> <tr> <td>居住情况:</td> <td> </td> <td>购车情况:</td> <td> </td> </tr> <tr> <td>收入情况:</td> <td> </td> <td>婚姻状况:</td> <td> </td> </tr> <tr> <td>健康程度:</td> <td> </td> <td>相貌自评:</td> <td> </td> </tr> <tr> <td> </td> <td> </td> <td> </td> <td> </td> </tr> <tr> <td> </td> <td> </td> <td> </td> <td> </td> </tr> <tr> <td> </td> <td> </td> <td> </td> <td> </td> </tr> <tr> <td> </td> <td> </td> <td> </td> <td> </td> </tr> <tr> <td> </td> <td> </td> <td> </td> <td> </td> </tr> <tr> <td> </td> <td> </td> <td> </td> <td> </td> </tr> <tr> <td> </td> <td> </td> <td> </td> <td> </td> </tr> <tr> <td> </td> <td> </td> <td> </td> <td> </td> </tr> <tr> <td> </td> <td> </td> <td> </td> <td> </td> </tr> <tr> <td> </td> <td> </td> <td> </td> <td> </td> </tr> <tr> <td> </td> <td> </td> <td> </td> <td> </td> </tr> <tr> <td> </td> <td> </td> <td> </td> <td> </td> </tr> </table></td> </tr> </tbody> </table></td> </tr> <tr> <td valign="top" align="middle" bgcolor="#ffffff"><table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#d8d8d8"> <tbody> <tr> <td valign="top" bgcolor="#ffffff"><table width="100%" border="0" cellpadding="5"> <tr> <td width="4%"><img height="11" alt="" src="images/grzl_18.gif" width="11" /></td> <td width="96%"><strong>内心独白</strong></td> </tr> <tr> <td colspan="2"> </td> </tr> </table></td> </tr> </tbody> </table></td> </tr> <tr> <td valign="top" align="middle" bgcolor="#ffffff"><table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#d8d8d8"> <tbody> <tr> <td valign="top" bgcolor="#ffffff"><table width="100%" border="0" cellpadding="5"> <tr> <td width="4%"><img height="11" alt="" src="images/grzl_18.gif" width="11" /></td> <td width="96%"><strong>心中的TA</strong></td> </tr> <tr> <td colspan="2"> </td> </tr> </table></td> </tr> </tbody> </table></td> </tr> <tr> <td valign="top" align="middle" bgcolor="#ffffff"><table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#d8d8d8"> <tbody> <tr> <td valign="top" bgcolor="#ffffff"><table width="100%" border="0" cellpadding="5"> <tr> <td width="4%"><img height="11" alt="" src="images/grzl_18.gif" width="11" /></td> <td width="96%"><strong>联系方式</strong></td> </tr> <tr> <td colspan="2"> </td> </tr> </table></td> </tr> </tbody> </table></td> </tr> </tbody> </table></td> </tr> </tbody> </table> <br /></td> </tr> </tbody> </table>